*!version 21 September 2022
/*Transforms csco15 5 digit codes into csco09 (Chinese Classification of Occupations) 5 digit codes. 

Reference:
Freda Yanrong WANG, Raymond WONG & Yujia HOU. (2024) Research on the Occupational Structure Changes in Chinese Society. Bejing:People's Publishing House. ISBN:978-7-01-026546-9.

*/

program define csko1509
	version 17
	syntax newvarname, csko(varname numeric)

	quietly gen `varlist'=`csko'
	quietly replace `varlist'=	10000	 if (`csko' == 	10000	)
	quietly replace `varlist'=	10100	 if (`csko' == 	10100	)
	quietly replace `varlist'=	10200	 if (`csko' == 	10200	)
	quietly replace `varlist'=	10201	 if (`csko' == 	10201	)
	quietly replace `varlist'=	10205	 if (`csko' == 	10202	)
	quietly replace `varlist'=	10202	 if (`csko' == 	10203	)
	quietly replace `varlist'=	10203	 if (`csko' == 	10204	)
	quietly replace `varlist'=	10300	 if (`csko' == 	10300	)
	quietly replace `varlist'=	10302	 if (`csko' == 	10400	)
	quietly replace `varlist'=	10302	 if (`csko' == 	10401	)
	quietly replace `varlist'=	10302	 if (`csko' == 	10402	)
	quietly replace `varlist'=	10302	 if (`csko' == 	10403	)
	quietly replace `varlist'=	10302	 if (`csko' == 	10404	)
	quietly replace `varlist'=	10302	 if (`csko' == 	10405	)
	quietly replace `varlist'=	10302	 if (`csko' == 	10406	)
	quietly replace `varlist'=	10303	 if (`csko' == 	10500	)
	quietly replace `varlist'=	10500	 if (`csko' == 	10600	)
	quietly replace `varlist'=	10500	 if (`csko' == 	10601	)
	quietly replace `varlist'=	10400	 if (`csko' == 	10602	)
	quietly replace `varlist'=	20000	 if (`csko' == 	20000	)
	quietly replace `varlist'=	20100	 if (`csko' == 	20100	)
	quietly replace `varlist'=	20101	 if (`csko' == 	20101	)
	quietly replace `varlist'=	20102	 if (`csko' == 	20102	)
	quietly replace `varlist'=	20103	 if (`csko' == 	20103	)
	quietly replace `varlist'=	20105	 if (`csko' == 	20104	)
	quietly replace `varlist'=	20108	 if (`csko' == 	20105	)
	quietly replace `varlist'=	20117	 if (`csko' == 	20107	)
	quietly replace `varlist'=	20118	 if (`csko' == 	20108	)
	quietly replace `varlist'=	20107	 if (`csko' == 	20109	)
	quietly replace `varlist'=	20119	 if (`csko' == 	20111	)
	quietly replace `varlist'=	20106	 if (`csko' == 	20112	)
	quietly replace `varlist'=	20111	 if (`csko' == 	20113	)
	quietly replace `varlist'=	20119	 if (`csko' == 	20114	)
	quietly replace `varlist'=	20119	 if (`csko' == 	20115	)
	quietly replace `varlist'=	20119	 if (`csko' == 	20199	)
	quietly replace `varlist'=	20200	 if (`csko' == 	20200	)
	quietly replace `varlist'=	20201	 if (`csko' == 	20201	)
	quietly replace `varlist'=	20202	 if (`csko' == 	20202	)
	quietly replace `varlist'=	20203	 if (`csko' == 	20203	)
	quietly replace `varlist'=	20204	 if (`csko' == 	20204	)
	quietly replace `varlist'=	20205	 if (`csko' == 	20205	)
	quietly replace `varlist'=	20206	 if (`csko' == 	20206	)
	quietly replace `varlist'=	20207	 if (`csko' == 	20207	)
	quietly replace `varlist'=	20209	 if (`csko' == 	20208	)
	quietly replace `varlist'=	20212	 if (`csko' == 	20209	)
	quietly replace `varlist'=	20213	 if (`csko' == 	20210	)
	quietly replace `varlist'=	20215	 if (`csko' == 	20211	)
	quietly replace `varlist'=	20216	 if (`csko' == 	20212	)
	quietly replace `varlist'=	20217	 if (`csko' == 	20213	)
	quietly replace `varlist'=	20218	 if (`csko' == 	20214	)
	quietly replace `varlist'=	20219	 if (`csko' == 	20215	)
	quietly replace `varlist'=	20221	 if (`csko' == 	20216	)
	quietly replace `varlist'=	20222	 if (`csko' == 	20217	)
	quietly replace `varlist'=	20223	 if (`csko' == 	20218	)
	quietly replace `varlist'=	20224	 if (`csko' == 	20219	)
	quietly replace `varlist'=	20225	 if (`csko' == 	20220	)
	quietly replace `varlist'=	20226	 if (`csko' == 	20221	)
	quietly replace `varlist'=	20227	 if (`csko' == 	20222	)
	quietly replace `varlist'=	20229	 if (`csko' == 	20223	)
	quietly replace `varlist'=	20231	 if (`csko' == 	20224	)
	quietly replace `varlist'=	20232	 if (`csko' == 	20225	)
	quietly replace `varlist'=	20233	 if (`csko' == 	20226	)
	quietly replace `varlist'=	20234	 if (`csko' == 	20227	)
	quietly replace `varlist'=	20235	 if (`csko' == 	20228	)
	quietly replace `varlist'=	20236	 if (`csko' == 	20229	)
	quietly replace `varlist'=	20237	 if (`csko' == 	20230	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20231	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20232	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20233	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20234	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20235	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20236	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20237	)
	quietly replace `varlist'=	20208	 if (`csko' == 	20290	)
	quietly replace `varlist'=	20211	 if (`csko' == 	20291	)
	quietly replace `varlist'=	20239	 if (`csko' == 	20299	)
	quietly replace `varlist'=	20300	 if (`csko' == 	20300	)
	quietly replace `varlist'=	20301	 if (`csko' == 	20301	)
	quietly replace `varlist'=	20309	 if (`csko' == 	20302	)
	quietly replace `varlist'=	20302	 if (`csko' == 	20303	)
	quietly replace `varlist'=	20303	 if (`csko' == 	20304	)
	quietly replace `varlist'=	20304	 if (`csko' == 	20305	)
	quietly replace `varlist'=	20305	 if (`csko' == 	20306	)
	quietly replace `varlist'=	20306	 if (`csko' == 	20307	)
	quietly replace `varlist'=	20228	 if (`csko' == 	20308	)
	quietly replace `varlist'=	20309	 if (`csko' == 	20309	)
	quietly replace `varlist'=	20309	 if (`csko' == 	20399	)
	quietly replace `varlist'=	20400	 if (`csko' == 	20400	)
	quietly replace `varlist'=	20401	 if (`csko' == 	20401	)
	quietly replace `varlist'=	20402	 if (`csko' == 	20402	)
	quietly replace `varlist'=	20409	 if (`csko' == 	20499	)
	quietly replace `varlist'=	20500	 if (`csko' == 	20500	)
	quietly replace `varlist'=	20501	 if (`csko' == 	20501	)
	quietly replace `varlist'=	20502	 if (`csko' == 	20502	)
	quietly replace `varlist'=	20503	 if (`csko' == 	20503	)
	quietly replace `varlist'=	20504	 if (`csko' == 	20504	)
	quietly replace `varlist'=	20505	 if (`csko' == 	20505	)
	quietly replace `varlist'=	20506	 if (`csko' == 	20506	)
	quietly replace `varlist'=	20507	 if (`csko' == 	20507	)
	quietly replace `varlist'=	20508	 if (`csko' == 	20508	)
	quietly replace `varlist'=	20509	 if (`csko' == 	20509	)
	quietly replace `varlist'=	20509	 if (`csko' == 	20599	)
	quietly replace `varlist'=	20600	 if (`csko' == 	20600	)
	quietly replace `varlist'=	20601	 if (`csko' == 	20601	)
	quietly replace `varlist'=	20602	 if (`csko' == 	20602	)
	quietly replace `varlist'=	20603	 if (`csko' == 	20603	)
	quietly replace `varlist'=	20604	 if (`csko' == 	20604	)
	quietly replace `varlist'=	20609	 if (`csko' == 	20605	)
	quietly replace `varlist'=	20609	 if (`csko' == 	20606	)
	quietly replace `varlist'=	20605	 if (`csko' == 	20607	)
	quietly replace `varlist'=	20609	 if (`csko' == 	20608	)
	quietly replace `varlist'=	20701	 if (`csko' == 	20609	)
	quietly replace `varlist'=	20702	 if (`csko' == 	20610	)
	quietly replace `varlist'=	20703	 if (`csko' == 	20611	)
	quietly replace `varlist'=	20609	 if (`csko' == 	20612	)
	quietly replace `varlist'=	20609	 if (`csko' == 	20699	)
	quietly replace `varlist'=	20800	 if (`csko' == 	20700	)
	quietly replace `varlist'=	20801	 if (`csko' == 	20701	)
	quietly replace `varlist'=	20802	 if (`csko' == 	20702	)
	quietly replace `varlist'=	20803	 if (`csko' == 	20703	)
	quietly replace `varlist'=	20804	 if (`csko' == 	20704	)
	quietly replace `varlist'=	20805	 if (`csko' == 	20705	)
	quietly replace `varlist'=	20806	 if (`csko' == 	20706	)
	quietly replace `varlist'=	20809	 if (`csko' == 	20707	)
	quietly replace `varlist'=	21300	 if (`csko' == 	20708	)
	quietly replace `varlist'=	40700	 if (`csko' == 	20709	)
	quietly replace `varlist'=	20809	 if (`csko' == 	20799	)
	quietly replace `varlist'=	20900	 if (`csko' == 	20800	)
	quietly replace `varlist'=	20901	 if (`csko' == 	20801	)
	quietly replace `varlist'=	20902	 if (`csko' == 	20802	)
	quietly replace `varlist'=	20903	 if (`csko' == 	20803	)
	quietly replace `varlist'=	20905	 if (`csko' == 	20804	)
	quietly replace `varlist'=	20906	 if (`csko' == 	20805	)
	quietly replace `varlist'=	20909	 if (`csko' == 	20899	)
	quietly replace `varlist'=	21000	 if (`csko' == 	20900	)
	quietly replace `varlist'=	21001	 if (`csko' == 	20901	)
	quietly replace `varlist'=	21002	 if (`csko' == 	20902	)
	quietly replace `varlist'=	21005	 if (`csko' == 	20903	)
	quietly replace `varlist'=	21009	 if (`csko' == 	20904	)
	quietly replace `varlist'=	21006	 if (`csko' == 	20905	)
	quietly replace `varlist'=	21007	 if (`csko' == 	20906	)
	quietly replace `varlist'=	21100	 if (`csko' == 	20907	)
	quietly replace `varlist'=	21009	 if (`csko' == 	20999	)
	quietly replace `varlist'=	21200	 if (`csko' == 	21000	)
	quietly replace `varlist'=	21201	 if (`csko' == 	21001	)
	quietly replace `varlist'=	21202	 if (`csko' == 	21002	)
	quietly replace `varlist'=	21203	 if (`csko' == 	21003	)
	quietly replace `varlist'=	21204	 if (`csko' == 	21004	)
	quietly replace `varlist'=	21205	 if (`csko' == 	21005	)
	quietly replace `varlist'=	21206	 if (`csko' == 	21006	)
	quietly replace `varlist'=	21209	 if (`csko' == 	21007	)
	quietly replace `varlist'=	21207	 if (`csko' == 	21008	)
	quietly replace `varlist'=	21209	 if (`csko' == 	21099	)
	quietly replace `varlist'=	21900	 if (`csko' == 	29900	)
	quietly replace `varlist'=	30000	 if (`csko' == 	30000	)
	quietly replace `varlist'=	30100	 if (`csko' == 	30100	)
	quietly replace `varlist'=	30101	 if (`csko' == 	30101	)
	quietly replace `varlist'=	30102	 if (`csko' == 	30102	)
	quietly replace `varlist'=	30109	 if (`csko' == 	30103	)
	quietly replace `varlist'=	30109	 if (`csko' == 	30199	)
	quietly replace `varlist'=	30200	 if (`csko' == 	30200	)
	quietly replace `varlist'=	30201	 if (`csko' == 	30201	)
	quietly replace `varlist'=	30202	 if (`csko' == 	30202	)
	quietly replace `varlist'=	30203	 if (`csko' == 	30203	)
	quietly replace `varlist'=	30209	 if (`csko' == 	30299	)
	quietly replace `varlist'=	30900	 if (`csko' == 	39900	)
	quietly replace `varlist'=	40000	 if (`csko' == 	40000	)
	quietly replace `varlist'=	40100	 if (`csko' == 	40100	)
	quietly replace `varlist'=	40103	 if (`csko' == 	40101	)
	quietly replace `varlist'=	40102	 if (`csko' == 	40102	)
	quietly replace `varlist'=	40109	 if (`csko' == 	40103	)
	quietly replace `varlist'=	40105	 if (`csko' == 	40104	)
	quietly replace `varlist'=	40106	 if (`csko' == 	40105	)
	quietly replace `varlist'=	40109	 if (`csko' == 	40199	)
	quietly replace `varlist'=	40500	 if (`csko' == 	40200	)
	quietly replace `varlist'=	40502	 if (`csko' == 	40201	)
	quietly replace `varlist'=	40501	 if (`csko' == 	40202	)
	quietly replace `varlist'=	40504	 if (`csko' == 	40203	)
	quietly replace `varlist'=	40503	 if (`csko' == 	40204	)
	quietly replace `varlist'=	40500	 if (`csko' == 	40205	)
	quietly replace `varlist'=	40200	 if (`csko' == 	40206	)
	quietly replace `varlist'=	30301	 if (`csko' == 	40207	)
	quietly replace `varlist'=	40509	 if (`csko' == 	40299	)
	quietly replace `varlist'=	40300	 if (`csko' == 	40300	)
	quietly replace `varlist'=	40300	 if (`csko' == 	40301	)
	quietly replace `varlist'=	40300	 if (`csko' == 	40302	)
	quietly replace `varlist'=	40309	 if (`csko' == 	40399	)
	quietly replace `varlist'=	30303	 if (`csko' == 	40400	)
	quietly replace `varlist'=	30302	 if (`csko' == 	40401	)
	quietly replace `varlist'=	30303	 if (`csko' == 	40402	)
	quietly replace `varlist'=	20218	 if (`csko' == 	40403	)
	quietly replace `varlist'=	30303	 if (`csko' == 	40404	)
	quietly replace `varlist'=	30303	 if (`csko' == 	40405	)
	quietly replace `varlist'=	30303	 if (`csko' == 	40499	)
	quietly replace `varlist'=	20700	 if (`csko' == 	40500	)
	quietly replace `varlist'=	20701	 if (`csko' == 	40501	)
	quietly replace `varlist'=	20703	 if (`csko' == 	40502	)
	quietly replace `varlist'=	20709	 if (`csko' == 	40503	)
	quietly replace `varlist'=	20702	 if (`csko' == 	40504	)
	quietly replace `varlist'=	40104	 if (`csko' == 	40505	)
	quietly replace `varlist'=	20709	 if (`csko' == 	40506	)
	quietly replace `varlist'=	20709	 if (`csko' == 	40599	)
	quietly replace `varlist'=	40701	 if (`csko' == 	40600	)
	quietly replace `varlist'=	40702	 if (`csko' == 	40601	)
	quietly replace `varlist'=	40701	 if (`csko' == 	40602	)
	quietly replace `varlist'=	40701	 if (`csko' == 	40603	)
	quietly replace `varlist'=	40104	 if (`csko' == 	40700	)
	quietly replace `varlist'=	40104	 if (`csko' == 	40701	)
	quietly replace `varlist'=	20609	 if (`csko' == 	40702	)
	quietly replace `varlist'=	20609	 if (`csko' == 	40703	)
	quietly replace `varlist'=	40402	 if (`csko' == 	40704	)
	quietly replace `varlist'=	30202	 if (`csko' == 	40705	)
	quietly replace `varlist'=	40107	 if (`csko' == 	40706	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40707	)
	quietly replace `varlist'=	40104	 if (`csko' == 	40799	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40800	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40801	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40802	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40803	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40804	)
	quietly replace `varlist'=	62500	 if (`csko' == 	40805	)
	quietly replace `varlist'=	62401	 if (`csko' == 	40806	)
	quietly replace `varlist'=	60101	 if (`csko' == 	40807	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40808	)
	quietly replace `varlist'=	40705	 if (`csko' == 	40809	)
	quietly replace `varlist'=	40901	 if (`csko' == 	40899	)
	quietly replace `varlist'=	50200	 if (`csko' == 	40900	)
	quietly replace `varlist'=	50500	 if (`csko' == 	40901	)
	quietly replace `varlist'=	50504	 if (`csko' == 	40902	)
	quietly replace `varlist'=	50503	 if (`csko' == 	40903	)
	quietly replace `varlist'=	50502	 if (`csko' == 	40904	)
	quietly replace `varlist'=	50203	 if (`csko' == 	40905	)
	quietly replace `varlist'=	50203	 if (`csko' == 	40906	)
	quietly replace `varlist'=	62403	 if (`csko' == 	40907	)
	quietly replace `varlist'=	40714	 if (`csko' == 	40908	)
	quietly replace `varlist'=	50209	 if (`csko' == 	40909	)
	quietly replace `varlist'=	50209	 if (`csko' == 	40910	)
	quietly replace `varlist'=	50509	 if (`csko' == 	40999	)
	quietly replace `varlist'=	40719	 if (`csko' == 	41000	)
	quietly replace `varlist'=	40713	 if (`csko' == 	41001	)
	quietly replace `varlist'=	40707	 if (`csko' == 	41002	)
	quietly replace `varlist'=	40704	 if (`csko' == 	41003	)
	quietly replace `varlist'=	40719	 if (`csko' == 	41004	)
	quietly replace `varlist'=	40719	 if (`csko' == 	41005	)
	quietly replace `varlist'=	40715	 if (`csko' == 	41006	)
	quietly replace `varlist'=	40719	 if (`csko' == 	41007	)
	quietly replace `varlist'=	40719	 if (`csko' == 	41099	)
	quietly replace `varlist'=	40703	 if (`csko' == 	41100	)
	quietly replace `varlist'=	60700	 if (`csko' == 	41101	)
	quietly replace `varlist'=	40703	 if (`csko' == 	41102	)
	quietly replace `varlist'=	40703	 if (`csko' == 	41103	)
	quietly replace `varlist'=	40703	 if (`csko' == 	41199	)
	quietly replace `varlist'=	40711	 if (`csko' == 	41200	)
	quietly replace `varlist'=	40711	 if (`csko' == 	41201	)
	quietly replace `varlist'=	40712	 if (`csko' == 	41202	)
	quietly replace `varlist'=	40711	 if (`csko' == 	41203	)
	quietly replace `varlist'=	40711	 if (`csko' == 	41204	)
	quietly replace `varlist'=	60809	 if (`csko' == 	41205	)
	quietly replace `varlist'=	40709	 if (`csko' == 	41206	)
	quietly replace `varlist'=	60609	 if (`csko' == 	41299	)
	quietly replace `varlist'=	40403	 if (`csko' == 	41300	)
	quietly replace `varlist'=	40403	 if (`csko' == 	41301	)
	quietly replace `varlist'=	61800	 if (`csko' == 	41302	)
	quietly replace `varlist'=	61805	 if (`csko' == 	41303	)
	quietly replace `varlist'=	40403	 if (`csko' == 	41304	)
	quietly replace `varlist'=	21009	 if (`csko' == 	41305	)
	quietly replace `varlist'=	21009	 if (`csko' == 	41399	)
	quietly replace `varlist'=	40600	 if (`csko' == 	41400	)
	quietly replace `varlist'=	40600	 if (`csko' == 	41401	)
	quietly replace `varlist'=	40600	 if (`csko' == 	41402	)
	quietly replace `varlist'=	40706	 if (`csko' == 	41403	)
	quietly replace `varlist'=	40600	 if (`csko' == 	41404	)
	quietly replace `varlist'=	40600	 if (`csko' == 	41499	)
	quietly replace `varlist'=	40900	 if (`csko' == 	49900	)
	quietly replace `varlist'=	50000	 if (`csko' == 	50000	)
	quietly replace `varlist'=	50100	 if (`csko' == 	50100	)
	quietly replace `varlist'=	50102	 if (`csko' == 	50101	)
	quietly replace `varlist'=	50101	 if (`csko' == 	50102	)
	quietly replace `varlist'=	50102	 if (`csko' == 	50199	)
	quietly replace `varlist'=	50201	 if (`csko' == 	50200	)
	quietly replace `varlist'=	50201	 if (`csko' == 	50201	)
	quietly replace `varlist'=	50201	 if (`csko' == 	50202	)
	quietly replace `varlist'=	50202	 if (`csko' == 	50203	)
	quietly replace `varlist'=	50204	 if (`csko' == 	50204	)
	quietly replace `varlist'=	50209	 if (`csko' == 	50299	)
	quietly replace `varlist'=	50300	 if (`csko' == 	50300	)
	quietly replace `varlist'=	50301	 if (`csko' == 	50301	)
	quietly replace `varlist'=	50301	 if (`csko' == 	50302	)
	quietly replace `varlist'=	50303	 if (`csko' == 	50303	)
	quietly replace `varlist'=	50309	 if (`csko' == 	50399	)
	quietly replace `varlist'=	50400	 if (`csko' == 	50400	)
	quietly replace `varlist'=	50401	 if (`csko' == 	50401	)
	quietly replace `varlist'=	50401	 if (`csko' == 	50402	)
	quietly replace `varlist'=	50402	 if (`csko' == 	50403	)
	quietly replace `varlist'=	50409	 if (`csko' == 	50499	)
	quietly replace `varlist'=	50900	 if (`csko' == 	50500	)
	quietly replace `varlist'=	50900	 if (`csko' == 	50501	)
	quietly replace `varlist'=	50305	 if (`csko' == 	50502	)
	quietly replace `varlist'=	50902	 if (`csko' == 	50503	)
	quietly replace `varlist'=	40714	 if (`csko' == 	50504	)
	quietly replace `varlist'=	50901	 if (`csko' == 	50505	)
	quietly replace `varlist'=	61200	 if (`csko' == 	50506	)
	quietly replace `varlist'=	50900	 if (`csko' == 	50599	)
	quietly replace `varlist'=	50900	 if (`csko' == 	59900	)
	quietly replace `varlist'=	60000	 if (`csko' == 	60000	)
	quietly replace `varlist'=	61200	 if (`csko' == 	60100	)
	quietly replace `varlist'=	61201	 if (`csko' == 	60101	)
	quietly replace `varlist'=	61208	 if (`csko' == 	60102	)
	quietly replace `varlist'=	61202	 if (`csko' == 	60103	)
	quietly replace `varlist'=	61206	 if (`csko' == 	60104	)
	quietly replace `varlist'=	50403	 if (`csko' == 	60105	)
	quietly replace `varlist'=	61209	 if (`csko' == 	60106	)
	quietly replace `varlist'=	61209	 if (`csko' == 	60107	)
	quietly replace `varlist'=	61209	 if (`csko' == 	60199	)
	quietly replace `varlist'=	61205	 if (`csko' == 	60200	)
	quietly replace `varlist'=	61209	 if (`csko' == 	60201	)
	quietly replace `varlist'=	61202	 if (`csko' == 	60202	)
	quietly replace `varlist'=	61203	 if (`csko' == 	60203	)
	quietly replace `varlist'=	61203	 if (`csko' == 	60204	)
	quietly replace `varlist'=	61204	 if (`csko' == 	60205	)
	quietly replace `varlist'=	61204	 if (`csko' == 	60206	)
	quietly replace `varlist'=	61209	 if (`csko' == 	60299	)
	quietly replace `varlist'=	61300	 if (`csko' == 	60300	)
	quietly replace `varlist'=	61301	 if (`csko' == 	60301	)
	quietly replace `varlist'=	61303	 if (`csko' == 	60302	)
	quietly replace `varlist'=	61302	 if (`csko' == 	60303	)
	quietly replace `varlist'=	61309	 if (`csko' == 	60399	)
	quietly replace `varlist'=	61000	 if (`csko' == 	60400	)
	quietly replace `varlist'=	61001	 if (`csko' == 	60401	)
	quietly replace `varlist'=	61002	 if (`csko' == 	60402	)
	quietly replace `varlist'=	61003	 if (`csko' == 	60403	)
	quietly replace `varlist'=	61004	 if (`csko' == 	60404	)
	quietly replace `varlist'=	61009	 if (`csko' == 	60405	)
	quietly replace `varlist'=	61005	 if (`csko' == 	60406	)
	quietly replace `varlist'=	61009	 if (`csko' == 	60499	)
	quietly replace `varlist'=	61100	 if (`csko' == 	60500	)
	quietly replace `varlist'=	61101	 if (`csko' == 	60501	)
	quietly replace `varlist'=	61103	 if (`csko' == 	60502	)
	quietly replace `varlist'=	61109	 if (`csko' == 	60503	)
	quietly replace `varlist'=	61102	 if (`csko' == 	60504	)
	quietly replace `varlist'=	61109	 if (`csko' == 	60599	)
	quietly replace `varlist'=	61500	 if (`csko' == 	60600	)
	quietly replace `varlist'=	61501	 if (`csko' == 	60601	)
	quietly replace `varlist'=	61502	 if (`csko' == 	60602	)
	quietly replace `varlist'=	61503	 if (`csko' == 	60603	)
	quietly replace `varlist'=	61509	 if (`csko' == 	60604	)
	quietly replace `varlist'=	61509	 if (`csko' == 	60699	)
	quietly replace `varlist'=	61506	 if (`csko' == 	60700	)
	quietly replace `varlist'=	61504	 if (`csko' == 	60701	)
	quietly replace `varlist'=	61506	 if (`csko' == 	60702	)
	quietly replace `varlist'=	61509	 if (`csko' == 	60799	)
	quietly replace `varlist'=	61900	 if (`csko' == 	60800	)
	quietly replace `varlist'=	61900	 if (`csko' == 	60801	)
	quietly replace `varlist'=	61900	 if (`csko' == 	60802	)
	quietly replace `varlist'=	61900	 if (`csko' == 	60899	)
	quietly replace `varlist'=	60200	 if (`csko' == 	60900	)
	quietly replace `varlist'=	62101	 if (`csko' == 	60901	)
	quietly replace `varlist'=	62103	 if (`csko' == 	60902	)
	quietly replace `varlist'=	62001	 if (`csko' == 	60903	)
	quietly replace `varlist'=	62102	 if (`csko' == 	60904	)
	quietly replace `varlist'=	62003	 if (`csko' == 	60905	)
	quietly replace `varlist'=	62009	 if (`csko' == 	60999	)
	quietly replace `varlist'=	60302	 if (`csko' == 	61000	)
	quietly replace `varlist'=	60302	 if (`csko' == 	61001	)
	quietly replace `varlist'=	60303	 if (`csko' == 	61002	)
	quietly replace `varlist'=	60303	 if (`csko' == 	61003	)
	quietly replace `varlist'=	60302	 if (`csko' == 	61099	)
	quietly replace `varlist'=	60300	 if (`csko' == 	61100	)
	quietly replace `varlist'=	60301	 if (`csko' == 	61101	)
	quietly replace `varlist'=	60319	 if (`csko' == 	61102	)
	quietly replace `varlist'=	60304	 if (`csko' == 	61103	)
	quietly replace `varlist'=	60319	 if (`csko' == 	61104	)
	quietly replace `varlist'=	60319	 if (`csko' == 	61105	)
	quietly replace `varlist'=	60307	 if (`csko' == 	61106	)
	quietly replace `varlist'=	60308	 if (`csko' == 	61107	)
	quietly replace `varlist'=	60313	 if (`csko' == 	61108	)
	quietly replace `varlist'=	60314	 if (`csko' == 	61109	)
	quietly replace `varlist'=	60317	 if (`csko' == 	61110	)
	quietly replace `varlist'=	60319	 if (`csko' == 	61199	)
	quietly replace `varlist'=	61400	 if (`csko' == 	61200	)
	quietly replace `varlist'=	61401	 if (`csko' == 	61201	)
	quietly replace `varlist'=	61404	 if (`csko' == 	61202	)
	quietly replace `varlist'=	61403	 if (`csko' == 	61203	)
	quietly replace `varlist'=	61402	 if (`csko' == 	61204	)
	quietly replace `varlist'=	61402	 if (`csko' == 	61205	)
	quietly replace `varlist'=	61409	 if (`csko' == 	61299	)
	quietly replace `varlist'=	60309	 if (`csko' == 	61300	)
	quietly replace `varlist'=	60309	 if (`csko' == 	61301	)
	quietly replace `varlist'=	60309	 if (`csko' == 	61302	)
	quietly replace `varlist'=	60309	 if (`csko' == 	61399	)
	quietly replace `varlist'=	60900	 if (`csko' == 	61400	)
	quietly replace `varlist'=	60901	 if (`csko' == 	61401	)
	quietly replace `varlist'=	60902	 if (`csko' == 	61402	)
	quietly replace `varlist'=	60900	 if (`csko' == 	61499	)
	quietly replace `varlist'=	61606	 if (`csko' == 	61500	)
	quietly replace `varlist'=	61601	 if (`csko' == 	61501	)
	quietly replace `varlist'=	61602	 if (`csko' == 	61502	)
	quietly replace `varlist'=	61700	 if (`csko' == 	61503	)
	quietly replace `varlist'=	61700	 if (`csko' == 	61504	)
	quietly replace `varlist'=	61704	 if (`csko' == 	61505	)
	quietly replace `varlist'=	61607	 if (`csko' == 	61506	)
	quietly replace `varlist'=	60211	 if (`csko' == 	61507	)
	quietly replace `varlist'=	61609	 if (`csko' == 	61508	)
	quietly replace `varlist'=	61609	 if (`csko' == 	61599	)
	quietly replace `varlist'=	60100	 if (`csko' == 	61600	)
	quietly replace `varlist'=	60101	 if (`csko' == 	61601	)
	quietly replace `varlist'=	60105	 if (`csko' == 	61602	)
	quietly replace `varlist'=	60107	 if (`csko' == 	61603	)
	quietly replace `varlist'=	60109	 if (`csko' == 	61699	)
	quietly replace `varlist'=	62000	 if (`csko' == 	61700	)
	quietly replace `varlist'=	60201	 if (`csko' == 	61701	)
	quietly replace `varlist'=	60202	 if (`csko' == 	61702	)
	quietly replace `varlist'=	60209	 if (`csko' == 	61703	)
	quietly replace `varlist'=	60203	 if (`csko' == 	61704	)
	quietly replace `varlist'=	60204	 if (`csko' == 	61705	)
	quietly replace `varlist'=	60205	 if (`csko' == 	61706	)
	quietly replace `varlist'=	60206	 if (`csko' == 	61707	)
	quietly replace `varlist'=	60207	 if (`csko' == 	61708	)
	quietly replace `varlist'=	60208	 if (`csko' == 	61709	)
	quietly replace `varlist'=	60212	 if (`csko' == 	61710	)
	quietly replace `varlist'=	60219	 if (`csko' == 	61799	)
	quietly replace `varlist'=	60400	 if (`csko' == 	61800	)
	quietly replace `varlist'=	60401	 if (`csko' == 	61801	)
	quietly replace `varlist'=	60402	 if (`csko' == 	61802	)
	quietly replace `varlist'=	60405	 if (`csko' == 	61803	)
	quietly replace `varlist'=	60406	 if (`csko' == 	61804	)
	quietly replace `varlist'=	60409	 if (`csko' == 	61899	)
	quietly replace `varlist'=	60512	 if (`csko' == 	61900	)
	quietly replace `varlist'=	60512	 if (`csko' == 	61901	)
	quietly replace `varlist'=	60409	 if (`csko' == 	61999	)
	quietly replace `varlist'=	60501	 if (`csko' == 	62000	)
	quietly replace `varlist'=	60501	 if (`csko' == 	62001	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62002	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62003	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62004	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62005	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62006	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62007	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62099	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62100	)
	quietly replace `varlist'=	60502	 if (`csko' == 	62101	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62102	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62103	)
	quietly replace `varlist'=	60505	 if (`csko' == 	62104	)
	quietly replace `varlist'=	60409	 if (`csko' == 	62105	)
	quietly replace `varlist'=	60509	 if (`csko' == 	62106	)
	quietly replace `varlist'=	60508	 if (`csko' == 	62199	)
	quietly replace `varlist'=	60507	 if (`csko' == 	62200	)
	quietly replace `varlist'=	60507	 if (`csko' == 	62201	)
	quietly replace `varlist'=	60507	 if (`csko' == 	62202	)
	quietly replace `varlist'=	60507	 if (`csko' == 	62299	)
	quietly replace `varlist'=	60507	 if (`csko' == 	62300	)
	quietly replace `varlist'=	60507	 if (`csko' == 	62301	)
	quietly replace `varlist'=	60519	 if (`csko' == 	62302	)
	quietly replace `varlist'=	60521	 if (`csko' == 	62303	)
	quietly replace `varlist'=	60529	 if (`csko' == 	62304	)
	quietly replace `varlist'=	60507	 if (`csko' == 	62399	)
	quietly replace `varlist'=	60511	 if (`csko' == 	62400	)
	quietly replace `varlist'=	60502	 if (`csko' == 	62401	)
	quietly replace `varlist'=	60502	 if (`csko' == 	62402	)
	quietly replace `varlist'=	60502	 if (`csko' == 	62403	)
	quietly replace `varlist'=	60803	 if (`csko' == 	62404	)
	quietly replace `varlist'=	60511	 if (`csko' == 	62405	)
	quietly replace `varlist'=	60511	 if (`csko' == 	62406	)
	quietly replace `varlist'=	60511	 if (`csko' == 	62407	)
	quietly replace `varlist'=	60511	 if (`csko' == 	62408	)
	quietly replace `varlist'=	60511	 if (`csko' == 	62499	)
	quietly replace `varlist'=	60511	 if (`csko' == 	62500	)
	quietly replace `varlist'=	60802	 if (`csko' == 	62501	)
	quietly replace `varlist'=	60801	 if (`csko' == 	62502	)
	quietly replace `varlist'=	60804	 if (`csko' == 	62503	)
	quietly replace `varlist'=	60804	 if (`csko' == 	62504	)
	quietly replace `varlist'=	60804	 if (`csko' == 	62599	)
	quietly replace `varlist'=	60506	 if (`csko' == 	62600	)
	quietly replace `varlist'=	60506	 if (`csko' == 	62601	)
	quietly replace `varlist'=	60506	 if (`csko' == 	62699	)
	quietly replace `varlist'=	40105	 if (`csko' == 	62700	)
	quietly replace `varlist'=	62403	 if (`csko' == 	62701	)
	quietly replace `varlist'=	40105	 if (`csko' == 	62799	)
	quietly replace `varlist'=	40703	 if (`csko' == 	62800	)
	quietly replace `varlist'=	40703	 if (`csko' == 	62801	)
	quietly replace `varlist'=	40703	 if (`csko' == 	62802	)
	quietly replace `varlist'=	40703	 if (`csko' == 	62803	)
	quietly replace `varlist'=	40703	 if (`csko' == 	62899	)
	quietly replace `varlist'=	62200	 if (`csko' == 	62900	)
	quietly replace `varlist'=	62202	 if (`csko' == 	62901	)
	quietly replace `varlist'=	62201	 if (`csko' == 	62902	)
	quietly replace `varlist'=	62211	 if (`csko' == 	62903	)
	quietly replace `varlist'=	62207	 if (`csko' == 	62904	)
	quietly replace `varlist'=	62208	 if (`csko' == 	62905	)
	quietly replace `varlist'=	62209	 if (`csko' == 	62999	)
	quietly replace `varlist'=	62300	 if (`csko' == 	63000	)
	quietly replace `varlist'=	62300	 if (`csko' == 	63001	)
	quietly replace `varlist'=	62302	 if (`csko' == 	63002	)
	quietly replace `varlist'=	62303	 if (`csko' == 	63003	)
	quietly replace `varlist'=	62304	 if (`csko' == 	63004	)
	quietly replace `varlist'=	62305	 if (`csko' == 	63005	)
	quietly replace `varlist'=	62900	 if (`csko' == 	63099	)
	quietly replace `varlist'=	62900	 if (`csko' == 	63100	)
	quietly replace `varlist'=	60600	 if (`csko' == 	63101	)
	quietly replace `varlist'=	60603	 if (`csko' == 	63102	)
	quietly replace `varlist'=	62500	 if (`csko' == 	63103	)
	quietly replace `varlist'=	62500	 if (`csko' == 	63104	)
	quietly replace `varlist'=	62901	 if (`csko' == 	63105	)
	quietly replace `varlist'=	40107	 if (`csko' == 	63106	)
	quietly replace `varlist'=	62900	 if (`csko' == 	63199	)
	quietly replace `varlist'=	62900	 if (`csko' == 	69900	)

end

